home *** CD-ROM | disk | FTP | other *** search
/ Programmer Power Tools / Programmer Power Tools.iso / pcresrc / pcr8808.arc / CTRLKEY.BAS next >
BASIC Source File  |  1988-05-04  |  1KB  |  32 lines
  1. 0 CLS:KEY OFF               ' turn off 25th line key list
  2. 10  FOR J=1 TO 10
  3. 20    KEY J,""                ' disable function key assignments
  4. 30  NEXT J                   
  5. 40 PRINT"Press any key to begin"
  6. 50 X$=INKEY$                 ' get keystroke from keyboard
  7. 60 IF X$="" THEN 50          ' loop if no keys pressed
  8. 70   A=ASC(RIGHT$(X$,1))     ' isolate the second character
  9. 80   IF LEN(X$)=2 THEN 130    ' branch if extended key code
  10. 90   PRINT X$,               ' print the text character
  11. 100   PRINT"ASCII: "; ASC(X$) ' and its ASCII value
  12. 110 GOTO 50                   ' loop for another keystroke
  13. 120   ' cursor, control and function keys are evaluated here
  14. 130  IF A=72 THEN KY$="UP ARROW"
  15. 140  IF A=80 THEN KY$="DOWN ARROW"
  16. 150  IF A=75 THEN KY$="LEFT ARROW"
  17. 160  IF A=77 THEN KY$="RIGHT ARROW"
  18. 170  IF A=73 THEN KY$="PAGE UP"
  19. 180  IF A=81 THEN KY$="PAGE DOWN"
  20. 190  IF A=71 THEN KY$="HOME"
  21. 200  IF A=79 THEN KY$="END"
  22. 210  IF A=82 THEN KY$="INSERT"
  23. 220  IF A=83 THEN KY$="DELETE"
  24. 230  IF A>58 AND A<69 THEN KY$="F"+STR$(A-58)
  25. 240  IF A>83 AND A<94 THEN KY$="SHIFT-F"+STR$(A-83)
  26. 250  IF A>93 AND A<104 THEN KY$="CTRL-F"+STR$(A-93)
  27. 260  IF A>103 AND A<114 THEN KY$="ALT-F"+STR$(A-103)
  28. 270  PRINT KY$,              ' extended code key assignment
  29. 280  PRINT"ASCII:";ASC(LEFT$(X$,1));ASC(RIGHT$(X$,1))
  30. 290  KY$=""
  31. 300 GOTO 50                  ' loop for another keystroke
  32.